home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / spectcl-.000 / spectcl- / usr / local / SpecTcl-0.1a / init.tk < prev    next >
Encoding:
Text File  |  1995-11-06  |  982 b   |  30 lines
  1. # SpecTcl, by S. A. Uhler
  2. # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  3. #
  4. # See the file "license.txt" for information on usage and redistribution
  5. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  6. #
  7. # global state initialization
  8. # This is preliminary as global and static variables that are currently
  9. # initialized in various source files migrate to here
  10.  
  11. set Advanced 1
  12. set Arrow_move 0
  13. set Cancel 0
  14. set Colors {black white bisque grey red green blue magenta yellow}
  15. set Current(column) ""        ;# the currently selected column tag
  16. set Current(form) ""        ;# the widget with an active option sheet
  17. set Current(repeat) ""
  18. set Current(row) ""            ;# the currently selected row tag
  19. set Current(sample) ""
  20. set Current(text) ""        ;# the text or label of the current widget
  21. set Current(widget) ""    ;# name of "current widget(s)?"
  22. set Down 0
  23. set Fontstyle ""
  24. set No_hit 0
  25. set Outline_inhibit 0
  26. set Status ""    ;# keep track of the row/col we're sitting on
  27. set Undo_count 0
  28. set X0 0
  29. set Y0 0
  30.